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1 Module: identi f y_caller 

2 Submodule of: routing_to_skill 

3 Input attributes: AN I : 9digits 

4 Output attributes: home_phone : 9digits 

5 account_number : lSdigits 

5 cust_rec : tuple ( name: string, 

7 address: string, 

g card_color: {"platinum", 

9 "gold", "green" }, 

10 hates_promos? : boolean, 

11 - estimated_income_bracket : 

12 {"0-10K", ">10K-20K", 

13 ">100K-150K", ">150K"}, 

l^ last_sent_bonus_check: date) 

15 Enabling condition: true 

16 Type: flowchart 

17 Computation: . See Fig. 3 

18 Side-effect: yes 

19 Side Effect function: (IVR Dip) 



FIG. 4 



1 Module: inf o_about_customer 

2 Submodule of: routing_to_skill 

3 Input attributes: account_number 

4 cust_rec 

5 Output attributes: cust_value : [1..10] 

6 f rustration_score : [1..10] 

7 late_payments_score : [1..10] 

8 recent_purchases : list ( tuple ( date : date, 

9 item : 20digit, 

10 qty : int, 

11 amount: $value ) 

12 marketing_vs_collections : {"market", 

13 "collect" } 
14 

15 Enabling condition: VAL (account_number ) 

16 Type: declarative 

17 Side-effect: no 



Fig. 6 



Module : inf o_f rom_web 

Submodule of: routing_to_skill 

Input attributes: AN I 

home_phone 
account^number 

Output attributes: web_destinations : lis t ( tuple ( regions : set of 

{"Australia", "Asia", . 
"NAmerica-US", "US"}, 
itinerary : web_f orm_cont en t 
date_last_modif ied : date 

Enabling condition: web_db_load < 95% or not VAL (account_number ) 

Type: foreign 

Computation: get_web_data (ANI , home_phone, account_number ) 

Side-effect: no 



Fig. 7 



1 Module: promo_s election 



2 


Submodule of: routing_to_skill 


3 


Input attributes: 


AN I 


4 


DNIS 


5 




account number 


6 




cust_rec 


7 




cust value 


8 




recent_purchases 


9 




f rust rat ion_s core 


10 




late_payments_score 


11 




web destinations 


12 


Output attributes: 


promo hit list : list ( promojmessage ) 


13 


Enabling condition : 


cust rec. hates promos'? = false 


14 


Type: 


foreign 


15 


Computation : 


get promo hit_lis t (ANI , DNIS , account_number , 


16 




cust rec, cust value, recent_purchases , 


17 




account status, f rustration_score, 


18 




late payments score, web_des tinatiorfs } 


19 


Side-effect : 


no 
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1 Module: routing_decisions 

2 Submodule of: routing_to_skill 

3 Input attributes: AN I 

4 DNIS 

5 account_number 

6 cust_rec 

7 cust_value 

8 recent_purchases 

9 f rustration_score 

10 late_payments_score 

1 1 web_destinations 

12 Output attributes : call_priority : [1..4] Wcorresponds to "low" 

13 "med", "high' 1 , "top" 

14 skill : ( "norm_tier_dom", "norm_tier_intl" , 

1 5 "australiajpromo" , "high_tier" , 

16 collections' 1 } 

17 on_queue_promo : message_identi f ier 

18 screen_pop_list : list ( screen_entry ) 

19 Enabling condition: true 

20 Type: declarative 

21 Side-effect: yes 




Fig. 10 
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Module : calculate_wrap_up 

Submodule of: routing_to_skill 
Input attributes: 



Output attributes: 
Enabling condition: 



Ani 
dnis 
Web_DB_Load 
Promos_Of_The_Day 
Cust_Rec 
Home_Phone 
Account_Number 
Cust_Value 
Frustration_Score 
Late_Payments_Score 
Recent_Pur chases 
Mar keting_VS_Collect ions 
Web_Destinations 
Call_Priority 
Skill 

On_Queue_Promo 
Screen_Pop_Lis t 
Promo_Hit_List 

wrap" up : set ( tuple ( att_name: string, 
" value: string ) ) 

true 



Type: 

Computation : 
Rules : 



decision 



Combining policy: 
Side-effect: 
Side-effect function: 



if true then wrap_up <- (att_name: "DNIS", 

value : convert-to-string (DNIS)) 
if true then wrap_up <- (att_name: "ANI", 

value: convert-to-string (AND) 
if true then wrap_up <- (att_name: "skill", 

value: skill) 
if web_destinations not empty then wrap_up <- 
_ ( att_name : \ "web_des tinations " , 

value: {convert-to-string 

(web_destinations) } 
if cust_rec.card_color = "gold" <- 

(att_name : "frustration_score" , 
value: convert-to-string 
( f rustration_score) ) 
wrap-up-cp //use contributions of all 

rules with true condition 



yes 

write into archive ( wrap_up ) 
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1 Module: get_recent__contacts_f or__this_cus tomer 

2 Submodule of: inf o_about_cus tomer 

3 Input attributes: account_number 

4 Output attributes: recent_contacts : list ( tuple ( date: date, 

5 event: event_type, 

6 delay_during_contact : int, 

7 \\ minutes 

8 delayjoef ore_shipment : int 

9 \\ days 

10 amount: $ value ) ) 

11 Enabling condition: true 

12 Type : foreign 

13 Computation: using recent_contacts_db 

14 select date, event , amount 

15 from contact_db 

16 where acct_num = account_number 

17 Side-effect: no 
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1 Module : get_recent_purchases_f or_this_customer 

2 Submodule of: inf o_about_cus tomer 

3 Input attributes: account_number 

4 Output attributes: recent_purchases : list ( tuple ( date: date, 

5 item : 20digit, 

6 qty : int, 

7 amount : $value ) ) 

8 Enabling condition: true 

9 Type: foreign 

10 Computation: using purchase_db 

11 select date, item, qty, amount 

12 from purchases 

13 where acct_num = account_number 

14 Side-effect: no 
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1 Module : get_account_history_f or_this_cus tomer 

2 Submodule of: inf o_about_cus tomer 

3 Input attributes: account_number 

4 Output attributes: account_history : tuple ( overdue_amount : 

5 $value, 

6 number_days_overdue : 

7 int, 

8 history: list ( tuple ( 

9 date: date, 
10 item : 20digit, 

1 1 amount : $value ) ) ) 

12 Enabling condition: true 

13 Type: foreign 

14 Computation: using account_his tory_db 

15 select over_amt, num_days , his tory 

16 from account_history 

17 where acct_num = account_nuraber 

18 Side-effect: no 
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Module : calculate_f rus tration_score 
Submodule of: inf o_about_customer 
Input attributes: recent_contacts 
Output attributes: f rus tration_score : [1..10] 
Enabling condition: VAL ( recent_contacts ) 
Type: decision 
Computation : 

Rules: if recent_contacts #1 defined then 

frustration^ core <- 

(value/50) * 

[ (delay_during_contact/2) + 
max ( 0, delay_before_shipment - 
10)/3] 

if recent_contacts#2 defined then 
f rustration_score <- 

(value/ 100) * 

[ (delay_during_contact/2) + 
max (O,delay_before_shipment - 
10)/3] 




Combining policy: f rustration-score-cp //add contributions 

of true rules and 
round up, to max 
of 10 

Side-effect: no 
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1 Module : calculate_net_prof it^score 

2 Submodule of: inf o_about_cus tomer 

3 Input attributes: recent_contacts , 

4 recent_pur chases, 

5 account_hi story, 

6 cust_rec 

7 Output attributes: net_prof it_score 

8 Enabling condition: recent_purchases #1 . date<=now-60 

9 Type: decision 

10 Computation: 

11 Rules: if recent_purchases not empty then 

12 net_prof it_score <- 

13 10% * sum ( recent j?urchases#i . amount 

14 where recent_purchases #i . date > now - 

15 60) 

15 if recent_contacts not -.empty then 

17 net_prof it_score o 

lg -( 5 * count ( recent_contacts#i 

19 where recent_contacts#i . type = 

20 "complaint' 1 ) ) 

21 if account_history . overdue_amount > 0 

22 then net_prof it_score <- 

23 - account_history.overdue_amount * 

24 account_history . numb er_days_over due / 30 

25 if cust_rec. card_color = "platinum" then 

26 net_profit_score <- 100 

27 if cust_rec. card_color = "gold" then 

28 net_prof it_score <- 50 

29 if cust_rec.card__color = "green" then 

30 net_prof it_score <- 10 

31 if DISABLED (cust_rec) then 

32 net_prof it_score <- 20 

33 Combining policy: net-prof it-score-cp //add contributions 

34 of rules with true 

35 conditions 

36 

37 Side-effect: no 
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1 Module : calculate_late_payment_score 



2 


Submodule of: info_ 


about_customer 


3 


Input attributes: 


account_history 


A 
'f 


Output attributes : 


late payment score 


c 

J 


Enabling condition: 


VAL{account history) 


6 


Type: decision 


7 

i 


Computation : 




Q 
O 


Rules : 


if cust rec.card color = "platinum" then 


9 




late_payments_score <- 


10 




{account his tory . overdue_amount 


1 1 
I 1 




number of days_overdue ) / 100 






if cust rec.card color = "gold" then 


13 




late payments score <- 


14 




(account history . overdue_amount * 


i < 

1 D 




number of days_overdue) /50 


10 




if cust rec.card color = "green" then * 


17 
i / 




late payments score <- 


1 o 




(account history . overdue_amount * 


19 




number of_days_overdue) /10 


20 


Combining policy: 


late-payment-score-cp //rule with true 


21 




condition wins; 


22 




default is 0 


23 






24 


Side-effect: 


no 
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1 Module: calculate_cus t_value 

2- Submodule of: inf o_about_customer 

3 Input attributes: net_prof it_score, 

4 late_payments_score, 

5 cust^rec 

6 Output attributes: cust_value 

7 Enabling condition: true 

8 Type: decision 

9 Computation: 

10 Rules: if VAL (net_prof i t_score ) then cust_value <- 

11 (1 - l/net_prof it_score) * 75 

12 if cust_rec. card_color = "platinum" then 

13 cust_value <- 20 

14 if cust_rec . card_color = "gold" then cust_value 

15 <- 10 - 

16 if cust_rec.card_color = "green" then 

17 cust_value <- 5 

18 if VAL{frustration_score) then cust_value <r 

19 5*f rustration_score 

20 Combining policy: calculate-cus t-val-cp //Add values of true 

21 rules and round up, to 

22 max of 100, default is 

23 0 
24 

25 Side-effect: no 
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1 Module : calculate_marketing_vs_collections 

2 Submodule of: inf o_abcut_customer 

3 Input attributes: cust_value, 

4 late_payments_score 

5 Output attributes: marketing_vs_collections 

6 Enabling condition: late_payments_score > 0 

7 Type: decision 

8 Computation: 

9 Rules: if late_payments_score > f ( cust_value ) then 

10 marketing_vs_collections <- "collect" 

11 // f is function from [1..100] into [1..10], 

12 // it could be linear, i.e., f (cust_value) = 

13 // cust_value/10 

14 // or it could be shallower in beginning and 

15 steeper 

16 // towards end 

17 
18 

19 Combining policy : marketing-vs-collection-cp //default is 

20 "marketing" 
2\ . any rule 

22 with true 

23 condition 

24 - wins 
25 

26 Side-effect: no 
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1 Module: As k_Reason_For_Call 

2 Submodule of: routing_decisions 

3 Input attributes: < none > 

4 Output attributes: IVR_choice 

5 Enabling condition: cust_value < 7 and DNIS not = 
5 M Australia_pr ©motion" 

7 Type: foreign 

8 Computation: x := IVR_dip ( question {2 )) ; 

9 if x = 1 then IVR_choice := "dom"; 

JO else if x = 2 then IVR_choice := "intl"; 

\\ else IVR_choice [state] = EXC and 

12 IVR_choice[EXC] =1 

13 

14 Side-effect: yes 

15 side-effect-function: IVR_dip ( question(2)) 
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Module : calculate jDUsiness_value_of_call 

Submodule of: routing_decisions 

Input attributes: IVR_choice, 

web_destinations , 

frustration's core, 

mar keting_vs_collections , 

late_payments_score, 

net_prof it_score 

Output attributes: business_value_of_call : int 

Enabling condition: true 

Type: decision 

Computation: 
Rules : 

if true then business_value_of_call <- 

(cust_value/50 * net_prof it_score ) 

if true then business_value_of_call <- 
10*f rustration_score 

if DNIS = "Australia_promotion" then 
business_value_of_call <- 100 

if "Australia" in web_des tinations [i] . regions for 
some i where 

web_destinations [i] . date J.ast jnodif ied > now 
30 

then business_value_of_call <- 100 

if IVR choice = "intl" then business_value_of _call 
50 

if marketing_vs_collections = "collect" then 
business_value_of_call <- 
(late_payments_score * 
account_history . overdue_amount) /5 

Combining policy: business-value-of -call-cp // Add contributions of 

rules with true 
conditions and round 
default is 0 

Side-effect: no 
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1 Module: Calculate_send_bonus_check 

2 Submodule of: routing_decisions 

3 Input attributes: cust_rec 

4 Output attributes: send_bonus_check? 

5 Enabling condition: if netjprof it_score > 1000 

6 and cust_rec. last_sent_bonus_check < now - 60 

7 and marketing_vs_collections = "market" 

8 OR 

9 if net_prof it_score > 500 

10 and f rustration_score > 8 

11 and cust_rec. last_sent_bonus_check < now - 60 

12 and marketing_vs_collections = "market" 
13 

14 Type: foreign 

15 Side-effect: yes 

16 side-effect-function: 

17 issue_and_send_check ($50, cust rec . name, cust rec. address) 
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Module : call_priority 

Submodule of: routing_decisions 

Input attributes: business_value__of _call 

f rustration_score 

Output attributes: call_priority 
Enabling condition: true 
Type: decision 
Computation: 

R U l es; if business_value_of_call < 25 then 

call_priority <- 1 

if 25 =< business__value_of_call < 100 then 
call_priority <- 2 

if 100 =< business_value_of_call < 500 then 
call_priority <- 3 

if 500 =< business_value_of_call then* 
call_priority <- 4 

if f rustration_score > 8 then 
call_priority <- 4 # 

if 6 =< f rustration_score <= 8 then 
call_priority <- 3^ 

Combining policy: call-priority-cp // high value wins with 

default result 2 

Side-effect: no 



Fig. 23 



Module: calculate_skill 

Submodule of: routing_< 
Input attributes: 



Output attributes: 
Enabling condition: 



business_value_of_call 
market ing_vs_col lections 
IVR_choice 
DNIS 

web_destinations 

skill 

true 



Type: 

Computation: 
Rules : 



decision 



if marketing_vs_collections = "collections" 

then skill <- ["collections", infinity] 



if business_value_of_call > 100 

then skill <- [ "high_tier" , 40] 

if DNIS = "australiajpromotion" then 

skill <- ["australia^promo", infinity] 

if "Australia" in web_destinations [i] . regions 

for some i where web_destinations [i] .date_last_modif ied > 
now - 30 then 

skill <- ["australia_promo", 20] 

if cust_rec.estimated_income_bracket = ">100K-150K" then 
skill <- [ "austral ia_promo", 25] 

if cust_rec. estimated_income_bracket = ">150K" then 
skill <- [ "austral iajromo", 35] 

if IVR_choice - "dom" then skill <- [ "norm_tier_dom" , 30] 

if IVR_choice = "intl" then skill <- [ "norm_tier_intl" , 30] 

if "US" in web_destinations [i] . regions for some 

i where web_destinations [i] . date_last_modif ied > 
now - 30 then 

skill <- ["norm_tier_dom", 20] 

if "US" hot in web_destinations [i] . regions for 

some i where web_destinations [i] . date_last_modif ied > now 
30 then 

skill <- ["norm_tier_intl", 20] 

Combining policy: skill-cp //weighted sum policy, and ties are 

broken by ordering "collections", 
"australia_promo" , "high_tier" , 
" 1 ow_ t i e r _i n 1 1 " , "1 ow_t i e r_dom" , 

default is _L 



Side-effect: no 
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1 Module: calculate_on_queue_promo 

2 Submodule of: routing_decisions 

3 Input attributes: promo_hit_list 

4 Output attributes: on_queue_promo 

5 Enabling condition: DISABLE if business_value > 100 or 

6 f rustration_score > 5 

7 Type: decision 

8 Computation: 

9 Rules: if 60 < ACD . expected_wait_time ( skill } 
jO then on_queue_promo <- 

j I promo_hit_list [#1] 

j2 if business_value_of_call < 30 

12 then on queue_promo <- promo_hit_lis t [ #1 ] 

14 Combining policy: on-queue-promo-cp // first true wins, default 

15 is 0 
16 

17 Side-effect: no 



Fig. 25 
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" apply 
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bagging I 
listing 
unitval 

projection on tuples 
projection on lists 



tf-ftctor(ex ( € 2 ):((f^:i l t *-a:t 2 )] factor (on lists) 



factor (on bags) 
map (on lists) 
map (on bags) 
collect (on bags) 
collect (on lists) 
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Global variables: 

These variables are global to the whole execution of workflow instance 
G: a dependency graph 
5: set of source attribute nodes of G 
T: set of target attribute nodes of G 
a []: array of attribute states 
/i []: array of attribute values 

a []: array of three valued logic values {true, false unknown) 
HIDDEN _EDGE: set of hidden edges of G. 
HIDDEN ATT: set of hidden attribute nodes of G. 

Notations: 



J 



a [A]: element of array a [] that corresponds to the attribute node A in G 
/i [A]: element of array /u [] that corresponds to the attribute node A in G 
a [p]: element of array a [] that corresponds to the condition node p in G 



Initialization phase: 

procedure Init: 

Input: 

g: a dependency graph: 
So: source nodes in g 
Te: terminal nodes ing 

body: 

BEGIN init 

G\=g ,S:=So: T: = Te, _ 
/♦Initialization of the states and values of attributes nodes */ 
FOR all the attribute nodes A in G DO 
IF A e S /* ^4 is a source node */ 
THEN a [A] := READY + ENABLED 
ELSE a [A] := UNITIALIZED; 
fi[A] :=NULL; 
END FOR 

/* Initialization of a-values of condition nodes */ 
FOR all the condition nodes p in G DO 

a[A] := unknown; 
END FOR 

*/ Initialization of the set of hidden edges and hidden nodes */ 
HIDDEN JDGE := 0; HIDDEN J TT := 0 
END init 



Increment 

Input: 

A : an attribute in G. ll^ 
v : a value for A. 
body: 

BEGIN increment ^ 
//f/4] :=v; J" >v 

IF a [A] = READY S 
THEN propagate_att_change(/l, COMPUTED) 
IF a [A] = READY+ENABLED 

THEN propagate_att_change(^, VALUE) J 
END Increment 




1 



propagateattchange 

Input: 

B : an attribute in G. 
a : a state for B 

body: 
I* Set state for B *l 

IF ((a[B] = ENABLED) AND {a = READY)) OR (a [B] = READY) AND (a =ENABLED)) |. i^ii 
THEN a [B] := READY+ENABLED 
ELSE (7 [B] := a; 

/* push relevant information to the affected successor nodes */ \^ 
CASE : a [B] e {VALUE, COMPUTED} /* The value of B is computed */ 
/* try to evaluate predicate nodes that are using the value ofB*/ j 
FOR each condition node p of the form predfti, , Q such that (B,p) e G DO^ ' 

IF (B,p) g HIDDEN_EDGE\ 2 4%V 

THEN 2V2 >d 
Hide_edge ((£,/>));■]- %H 36 7i t 

IF Eval (p) unknown THEN a \p] := Eval(p), propagate_cond_change(^)j 

END FOR 

/* check if the attributes nodes that have B as input parameters are READY */ 
FOR each attribute node C such that (5, Q e G DO " — 

IF o[B]= VALUE THEN y y 



IF (B, Q £ HIDDEN _EDGE 

THEN | 
Hide_edge((fl,0); ; 

IF there exists no attribute node D such that (A C) £ HIDDEN _EDGE\ 
THEN propagate_att_change (C, READY); 

END FOR = 

CASE : a [B] = ENABLED \ 
/* evaluates condition nodes of the form VALUE (5) and DISABLED (£) */ 
FOR each condition node p of the form VALUE (5) or DISABLED (B) such that (B.p) s G DO 

IF (B,p) € HIDDEN _EDGE 



'I 



THEN 
Hide_edge((fl,/>)) 

Wp is of the form VALUE (A) THEN a[p] := true ELSE a\p]\ = false\ 
propagate_cond_change(p); 
END FOR 
CASE : a [B] = DISABLED 

/* evaluate condition nodes of the form VALUE (B) and DISABLED (B) */ 
FOR each condition node p of the form VALUE (B) or DISABLED (B) such that (B.p) s G DOJ 

IF (B,p) £ HIDDEN _EDGE 
THEN 
Hide_edge {{B,p))\ 

IF/? is of the form VALUE (A) THEN a[p] := /a/se ELSE a[p] := /rwe; 
propagate_cond_change(p) ; 
END FOR 

/* check if the attribute nodes that have B as input parameters are READY */ 
FOR each attribute node C such that (B,Q <= G DO 

IF (B,Q 3 HIDDEN _EDGE 
THEN 
Hide_edge((fl,C)); 

IF there are no more attribute nodes D such that (D,Q £ HIDDEN EDGE 
THEN propagate_att_change (C, READY); 
END FOR • / *HP' 

/* If the attribute is stable then hide the attribute */ 
IF (a [5] e {DISABLED, VALUE}) THEN Hidenode^rV l ^ 
END propagate att change - 1 

propagate_cond_change 

/?; a condition node in G. 
body: 

BEGIN propagate_cond_change 

let A7 be the successor ofpin G ^ £ 

IF (p,n) £ HIDDEN _EDGE \ 
THEN c / 

Hide _edge ((p,«));V 5 ^ 2 V 5 " * 

CASE: /i is OR condition node 
J«/60 ^JF (a [p] = frwe) THEN a [n] : = true, propagate_cond_change(//); END IF; 
■*tF a [p] = false AND for each condition node p' where eG, (//. //> 
H HIDDEN_EDGE 

__ THEN a [n] : = false; propagate_cond_change(n),END IF; 
CASE: n is a AND node 
- f£>6 -iTlF (a [/?] = /a/se) THEN a [«] := false; propagate_cond_change(//);END IF; 
TF a [p] = 7R£/£ AND for each condition node p' where (p'.nj e G, (/?'.«; s 
HIDDEN EDGE 




2 W 



Ml* 




THEN a [«]: = ; propagate_cond_change(«);END IF; 
CASE : n is NOT node ~] 

a [«]: = -i (a [p]) ; propagate_cond_change(«)j ^ 
CASE : n is an attribute node 
IF (a M = /n/e) 

THEN propagate_att_change(«, ENABLED) L > 4 / 
ELSE propagate_att_change(«,DISABLED); 
END propagatecondchange 

Hideedge 

Input 

: an edge in G. 

body 

BEGIN Hide_edge 

HIDDEN_EDGE : = HIDDEN EDGE U ")]; 

IF (there are no more edges (#?, rT) e G such that («,«") € HIDDEN _EDGE 

THEN Hide_node(w) 
END Hide_edge 

Hidenode 

Input 

n : a node in g. 
body 

BEGIN Hide_node 

HIDDEN _A TT := HIDDEN _A TT\}{n} 

FOR each edge (n » e g such that (« » £ HIDDEN EDGE) DO 

Hide_edge (« ',«) 
END FOR 
END Hide_node 

J 



Global variables: 

These variables are global to the whole execution of workflow instance 
G : a dependency graph 

S : set of attribute nodes of G /* this set contains the source nodes */ 

T : set of attribute nodes of G/* this set contains target nodes */ < OH 

a[] : array of attribute states - 5-^ • 

ot[] : array of three valued logic values (true, false unknown) 

HIDDEN _EDGE : set of edges of G. 

HIDDEN _A TT : set of attribute nodes of G. 

T_N[][] : Matrix of integers that associates an integer value to each pair (p,A) where/? is a 
condition node and A is an attribute node 
in G 

/* T_N\p][A] = 0 means that the attribute A is True_necessary for the the condition node 

FjV[][] : Matrix of integers that associates an integer value to each pair (p;A) where p is a 
condition node and A is an attribute node in G 
/*F_A^][i4] = 0 means that the attributed is Falsejiecessary for the condition node/?*/ 

rjV[][] : Matrix of integers associates an integer value to each pair (B,A) where B and A 

are attribute nodes in G 
/*V_N[B][A] = 0 means that the attribute A is Value_necessary for the attribute node B*i 

SJi[][] • Matrix of integers associates an integer value to each pair (B,A) where 
B and A are attribute nodes in G 
/*S_N[B][A] = 0 means that the attribute A is Stable_necessary for the attribute node /T 

N[] : Array of boolean 

N[A] = true means that the attribute A is computed as necessary/* 
N[A] = false means that the attribute A is not computed as necessary*/ 

Notations : 

nb _pred{p) : number of predecessors of/? in G 

Initialization phase: 
procedure Init : 

Input: 

g : a dependency graph: 

So : source nodes in g 

Te : terminal nodes ing 
body: 

BEGIN N init 



t'if r isr/) 



InitQ ]j- 



I* Initialization of T_N,F_N,S_N,V_N */ 
FOR all the condition nodes p in G DO 
FOR all the attribute nodes A in G DO 

CASE : p is an OR node : 
T_N[p][A] := nb _pred(p). 
F_N\p][A] := 1; 

CASE : p is an AND node : 

T_N\p][A] = h 
F_N\p][A] := nb _pred(p), 

CASE : p is a NOT node : 
T_N\p][A] := 1; 



/*rulel */ 
/* rule 2 */ 



/* rule 3 */ 
/* rule 4 */ 



/* rule 5 V 
/* rule 6 */ 



CASE : p is a node of the form VAL(£) or DIS(B): 
F_N\p][A] :=1; 



I* rules 7 and 9 */ 
/♦rules 8 and 10*/ 



^10 



CASE : p is a node of the form pred(t u . ..t n ): 
T_N\p][A] := 1; 
F_N\p][A] := 1 



, /* rule 11 */ 
/* rule 12 */ 



END FOR 
END FOR 

FOR all the attributes nodes A'mG DO 
FOR all the attribute nodes B in G DO 

S_N[A][B\ := 1; V_N[A][B] := 1 
END FOR 

END FOR 



FOR all the attributes nodes A in G DO 

N[A] := false 
END FOR 

END N init 



NIncrement 

Input : 
A : an attribute in G. 
v : a value for /I. 

Variables I* Global to one execution of the increment phase (for one execution step) 



*/~Y^'* 



■is 



prev_E: set of attribute node? 

/* used to store the nodes that were READY+ENABLED or ENABLED (in a 
previous execution of N-increment) */ 

prev HIDDEN EDGE. /* set of edges*/ 

used to store the edges that were previously hidden (in the previous steps) */ 

prev_T_N: set of pairs (p,A) where/7 is a condition node and A is an attribute node 
/* used to denote the elements of T_N\p][A] that were set to 0 in a previous 
execution of N-increment*/ 

prev F N: set of pairs (p,A) where/? is a condition node and A is an attribute node 
/* used to denote the elements of F_N\p][A] that were set to 0 in a previous 
execution of N-increment*/ 

A_E: set of attribute nodes 
/* used to store the new ENABLED or READY+ENABLED attribute nodes that were 
neither ENABLED nor READY+ENABLED in the previous steps */ 

&_HIDDEN_EDGE : set of edges 
/* used to store the new hidden edges */ 

new_V_N : set of pair (A,A) where A is an attribute node 

/* used to store the positions of elements of V_N[][] whose new value is zero due to 
case 1 */ 

new_S_N : set of pair (B,A) where B and A are attribute nodes 
/* used to store the positions of elements of S_N[][] whos.e new value is zero due to 
case 2 */ 

new T N : set of pair (p,^) where p is a predicate node and A is an attribute node 
/* used to store the positions of elements of T_N[][] whose new value is zero due to 
some new hidden edges (case 3) */ 
new F N : set of pair (p,^) where p is a predicate node and A is an attribute node 
/* used to store the positions of elements of F_N[][] whose new value is zero due to 
some new hidden edges (case 4) */ 

body: 

BEGIN N increment 



J 
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I* preparation step: */ 

prev HIDDEN EDGE := HIDDEN _EDGE\ 

prev_E := {A \ A is an attribute node in G and o [A] e {READY+ENABLED 
ENABLED} 

Increment^, v)~^ ^4 

/* Instigation step : Compute new necessary properties according to the instigation 
cases*/ 



. lilt 



Case 1 : 

A_E := {A\A is an attribute node in G and o[A] e {READY+ENABLED, ENABLED}^ 
and A <£ prev_E} 
new_V_N := 0; 

FOR each attribute node A in A_E DO 

V N\A\A\ := 0; new_V_N := newVNV {(A,A)}/* a node is value_necessary for 

itself*/ 
END FOR 



Case 2 : 

newJSJf := 0; 

FOR each attribute node B in A_E DO 
FOR each attribute node in A inG such that c [A] € {READY+ENABLED, 
ENABLED} DO 
IF V_N[B][A] = 0 and S_N[B][A] = 1 

THEN S_N[B][A] = 0; new_S_N := new_S_N U {(£4)} /* rule (13)*/ 
END FOR 
END FOR 



^HIDDEN _EDGE := HIDDEN EDGE - prev HIDDEN EDGE 
prev_T_N := {(p,A) \ T_N[p][A] =0 } 
prev_F_N := {(p,i4) | FJVfoP] =0 } 
new T N := 0; 
«ew F N := 0', 



FOR all edges e ^HIDDEN ' EDGE such that /? g HIDDEN A TT and pis a 
condition node DO 

FOR all attribute nodes A such that a (A) e {COMPUTED, VALUE, DISABLED } 
DO 

CASE: 3 
CASE : p is an OR node. 
IF (n,A) « prev_T_N 
THEN 

T_N\p][A] := 7\N[p]L4] -1; /* rule (1)*/ 

IF T_N[p][A] = 0 THEN new_T_N := new_T_N U {(p.i4)} 

CASE: 4 

CASE : p is an AND node : 

IF (n,A) e prev F N /* same reasoning as for OR nodes but with rule 4*/ ^ 
THEN 

F_N\p][A] := F_N\p][A] - 1 ; /* rule (4)*/ 

IF F_N[p][A] = 0 THEN new F N := new F N u {(/vi)} 
END FOR 
END FOR 



-IS*' 



/* Propagation step */ > ? C L IO 

New_propagate(ne>v_r_M new_S_N y newTN, new^FJ^yr 3 
END NJncrement 

New_propagate 
Input : 

new V N : set of pairs (A,A) where A is an attribute node 

new_S_N : set of pairs (B,A) where B and ^4 are attribute nodes 

new_T_N : set of pairs (p f A) where pis a condition node in G and ^ is an attribute 

node 

new F N : set of pairs (p,A) where p is a condition node in G and ^ is an attribute 
node 
body: 

FOR each pair (A,A) in new_V_N DO 
propagate_V_NOM) 

FOR each attribute node B such that (A.B) e G and (45) e HIDDEN EDGE V 3 

^JV[5][i4] := 0; propagate_V_N(5^)/* rule (16) */ J 
END FOR 
END FOR 

FOR each pair (5,^) in new_S_N DO 

propagate_S_N(j5,>!) 
END FOR 
FOR each pair (p,A) in new T N DO 
propagate_T_N(p,^4) 
END FOR 

FOR each pair (p f A) in new_F_N DO 

Propagate_F_N(p,>l ) 
END FOR 
END N-propagate 

propagate_V_N 
Input : 
B : an attribute node in G. 

4 : an attribute node in GV* A is newly Value_necessary for B*/ 

IF a[5] = ENABLED and S_N[B][A] = 1 V ^ >> 

THEN S_APP] - 0; propagate_S_N(£,,4) /*rule (13) */J 

ELSE let p be the condition node such that (p } B) e G. 
DF F_N[p][A]=0 and SJf[B][A] = 1 
THEN SJV[B][i4] = 0; propagate_S_N(5,^) /*rule (14)*/ 

END IF 

FOR each condition node p of the form pred{t x ,/ n ) 

such that (5,/?) s g and (fl.p) € HIDDEN EDGE DO 
IF7_AT>P] = 1 |, 
THEN T_N\p][A] : = 0;propagate_T_N(/?,/l) /*rule (11)*/ 

KF_N\p][A] =1 ^ ? 

THEN F_N\p][A] : = 0;propagate_F_N(/>^) /*rule (12)*/ J - 



END FOR 
END propagate_V_N 



) 
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propagate_S_N 
Input: 

B : an attribute node in G. 

A : an attribute node in G.I* A is newly Stable_necessary for B*l 
body: 

FOR each attribute node C such that (B.Q e g and (B.Q S HIDDEN EDGE DO) 

IF V_N[C][A] = 1 THEN V_N[C][A] = 0;propagate_V_N(CU) /* Rule 17 */_ 
END FOR 

IF B e T THEN N[A] : = truF^ * 
END propagate S N 

propagateJFN 
Input: 

p : a condition node in G. 

A: an attribute node in G.I* A is newly False necessary for/?*/ 

let n be the successor of p in G 
IF (p.ri) € HIDDEN _EDGE 
THEN 

CASE : w is an OR or AND node 

IF F_N[n][A] > 0 * 
THEN 

F_N[n][A] := F_N[n][A] - 1; W*rules (2) and (4)*/ 

IF FJV[w][i4] = 0 THEN propagate F_N (n,A) 
CASE : n is a NOT node 

IF r_A/[«P] = 1 THEN T_N[n][A] : = 0;propagate_T_N/M; /*rule (6)*/ 
CASE : n is an attribute node 
IF (T_N\p][A\ = 0 or V_N[n][A] = 0 and SJV[w]L4] - 1 

THEN = 0;propagate_S_N(M) /*rules (14) and ( 1 5)* ' 

FOR each condition node p ' of the form VALUE (n) 

such that (n.p ') e g and («,/> ') e HIDDEN _EDGE DO 
IFF_iVIp'][^] = 1 THENF/V^'P] : = 0;propagate_F_N(p \A) /*rule (8p 
END FOR 

FOR each condition node p ' of the form DISABLED (n) 

such that (n.p ') e G AND («,/? ') e HIDDEN JEDGE DO 
IF rjVI/> '][/!] = 1 THEN (7jV[/7 'P] := 0;propagate_T_N(p /*rule ( 10)*/ 
END FOR 
END propagate_F_N 

propagate_T_N 
Input: 

p: a condition node in G. 

A: an attribute node in Gl* A is newly True_necessary for/?*/ 
body: 




let n be the successor of p in G 
EF (p,n) g HIDDEN EDGE 
THEN 

CASE : n is an OR or AND node 
IF T_N[n][A] > 0 
THEN 

T_N[n][A] := T_N[n][A] - 1; /*rules (1) and (3)*/ 
IF T_N[n][A] = 0 THEN propagate_T_N(M) 
CASE : n is a NOT node 

IF F_A^«][/1] = 1 THEN F_N[n][A] : = 0; propagate_F_N(M) /* rule (5) 
CASE : n is an attribute node 

IF F_N\p][A] = 0 and SJVMf/4] = 1 

THEN S_N[n][A] = 0;propagate_S_N(«,^) /*rule (15)*/ 
FOR each condition node p ' of the form VALUE (a?) 

such that (n,p') e G and (n,p') e HIDDEN_EDGE DO 
IF 7\/V[«P] = 1 THEN 

T_N\p '][A] . = 0;propagate_T_N(p \A) /'rule (8) *l 
END FOR 

FOR each condition node p ' of the for DISABLED («) 

Such that (n,p') e Gand(n,p') € HIDDEN _EDGE DO 
IF FJV[/j][/1] = 1 THEN 

F_N\p '][A] : = 0;propagate_F_N(p \A) /*rule (9)*/ 
END FOR 
END propagate_T_N 
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calculate. 
marketing.vs_ 
collections 
(node 532) 


"any true rule 
gives collect; 
default is 
marketing" 


marketing. 

vs. 
collections 


calculate, 
cust.value 
(node 528) 


"add contribs. 
of true rules 
and round up, 
to max of 100" 


cust. 
value 


<** 
(0 


"true rule wins; 
default is 0" 


late, 
payment, 
score 


calculate. 
net.profit_ 

score 
(node 620) 


"add contribs. 
of true rules" 
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calculate, 
frustration. 

score 
(node 616) 


"add contribs. 
of true rules 
and round up, 
to max of 10" 


frustration, 
score 
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foriegn 
module 


account, 
history 


get.recent. 
purchases.... 
(node 608) 
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module 


recent, 
purchases 


get.recent. 
contacts ... 
(node 604) 
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calculate_ 
marketing_vs. 
collections 
(node 632) 


"any true rule 
gives collect; 
default is 
marketing" 


marketing. 

vs_ 
collections 


calculate_ 
cust_value 
(node 628) 


"add contribs. 
of true rules 
and round up, 
to max of 100" 


cust. 
value 


calculate^ 
late_payments_ 
score 
(node 624) 


"true rule wins; 
default is 0" 


late_ 
payment, 
score 


calculate_ 
net_profit_ 

score 
(node 620) 


"add contribs. 
of true rules" 
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calculate, 
frustration. 

score 
(node 616) 


"add contribs. 
of true rules 
and round up, 
to max of 10" 


frustration, 
score 


get_account_ 
history.... 
(node 612) 


foriegn 
module 


account, 
history 
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Initialization ^ 
Based on the DL specification, compute rows 1 , 2, and 3 of the display;}- 
For source attribute cells of row 4 do: " — t 



source aiuiuuie wua ■ «« -• , 
For each source attribute with value, insert value and apply 

"attribute valuejndication"; 

For each source attribute that is disabled, apply 
"attribute_disabled_indication";_ :: - 
For each non-decision module 

In row 5, apply "module_uninitialized_indication ; 
In row 4, apply u attribute_uninitializedjndjcation"; 
For each decision module 

In row 5, apply "module_ready_indication"; 

In row 4 apply "attribute_uninitialized_indication"; — 

For each cell in rows 6,7,?,. , apply "rule_readyjndication"^- t\0W 




Iteration 

For each event of execution engine do 

Case on eventjype \ — 

non_dec_module_enabled: .AH^ 1 ^ 
in row 5, apply "module_enabledjndiaation ^ 

non_dec_module_ready: n "\ A0 L ^ 

in row 5, apply "module_ready_indication ; _^ 

non dec_module_ready+enabled: _ ^ Q 1 o 

~ in row 5, apply "module_ready+enabled_indication ; _ 

non dec_module_computed:: _ 

in row 5, apply "module_computed_indication ; . 
in row 4, label corresponding attribute cell with the value computed M 0 ! J 

and apply „ 

u attribute_computed_indication ; — 

non dec module_value: \ Mo^O 

" inTow 5, label cell for this module as "value and apply \ 

"module value indication", ... ^ „„\ 

in"row 47label corresponding attribute cell with value assigned ana\ 

apply „ ■ — ' 

"attribute_value_indication" 

non_dec_module_disabled. M P^V 



I 
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in row 5, label cell for this module as "disabled" and apply 

"module_disabled_indication"; 
in row 4, label corresponding attribute cell with "1" and apply 

"attribute_disabled_indication" 

dec_module_enabled+ready: 

in row 5, label cell with "enabled+ready" and apply 
"module_enabled+ready_indication"; 

dec_module_computed: 

in row 5, label cell with "computed" and apply 
"module_computed_indication"; 

in row 4, label cell with the computed value and apply 
"attribute_computed_indication"; 

dec_module_value: 

in row 5, label cell with "value" and apply 
"module_value_indication"; 

in row 4, label cell with the computed value and apply 
"attribute_value_indication"; 

dec_module_disabled: 

in row 5, label cell with "disabled" and apply 
"module_disabled_indication"; ? 
in row 4, label cell with "1" and apply . 
"attribute_disabled_indication"; * 

comp_rule_condition_true: 

to corresponding cell, apply "rule_cond_true_indication"; 

comp_rule_contribution_computed: 

to corresponding cell, label with computed value and apply 
"rule_contribution_computed_indication"; — i 

comp_rule_contributed_value: j 
to corresponding cell, label with computed value and apply j 
"rule_contributed_value_indication"; I 



comp_rule_condition_false: 

to corresponding cell, label with "1" and apply 
"rule_condition_false_indication"; 



EndCase 



fit W£> 



